(dabbrev--goto-start-of-abbrev):

Exit loop on beginning of field rather than bobp.

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index b085856570345616c3daf586e10889f031b07993..92191a926c3dcd196aec95669e03095651fadfd6 100644 (file)
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -599,7 +599,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
        (progn
          (forward-char -1)
          (while (and (looking-at dabbrev--abbrev-char-regexp)
-                     (not (bobp)))
+                     (not (= (point) (field-beginning (point)))))
            (forward-char -1))
          (or (looking-at dabbrev--abbrev-char-regexp)
              (forward-char 1))))